Exploring Where & Why/Exploring Where & Why.iso/pc/MODULES/LESSON01/ACT01A/L01A2D.DIR/scripts_14_dragging.ls

Text File | 2003-04-21 | 338 b | 20 lines

global gObj

on mouseEnter me
  psmouseEnter(gObj, the currentSpriteNum)
end

on mouseDown me
  psMouseDown(gObj, the currentSpriteNum)
end

on mouseWithin me
  psmouseWithin(gObj, the currentSpriteNum)
end

on mouseUp me
  if psmouseUp(gObj, the currentSpriteNum, "theFace", "eyes") then
    go(1, the moviePath & "L01A2e")
  end if
end